home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1990 / Feb 90 / MacApp.Tech$ 2⁄16⁄90 / 0663-Mouser Question-Feb90 < prev    next >
Encoding:
Text File  |  1991-03-06  |  2.0 KB  |  107 lines  |  [TEXT/GEOL]
  1. Item forwarded  by  A33          to A34
  2.  
  3. Item    7284525                         13-Feb-90        18:58PST
  4.  
  5. From:   D2652                           Strategic Planning Sys, D Bell,PRT
  6.  
  7. To:     MACAPP.TECH$                    MacApp Technical
  8.  
  9. cc:     D2652                           Strategic Planning Sys, D Bell,PRT
  10.  
  11. Sub:    Mouser Question
  12.  
  13.  
  14. Hello Fellow MacAppers,
  15.  
  16. On returing from San Diego last week, We launched the new version of Mouser and
  17. started parsing our code.  Unfortunately, it suddenly stopped, and put up a
  18. dialog box sayin gsomethin glike, "Could not parse file "<name>" because and
  19. END was not found for an object".
  20.  
  21. What?  Here's the code below that it stopped at.  I moved the statements around
  22. to try and find the problem; I even split the file in two.  But Mouser always
  23. stopped at the same place (physically) in the code, as I've indicated:
  24.  
  25. {$S AOpen}
  26. PROCEDURE TMyControl.IMyControl(itsDoc: TTickerDoc; aDefChoice: INTEGER; aName:
  27. Str255);
  28. VAR
  29.    iconNumber  :   INTEGER;
  30.    aHandle :   Handle;
  31.    aCHandle:   CIconHandle;
  32. BEGIN
  33.    fDefChoice := aDefChoice;
  34.    fIconNumberOff := 0;
  35.    fIconNumberOn := 0;
  36.  
  37.    CASE fDefChoice OF
  38.    kLoadChoice:
  39.    BEGIN
  40.    fIconNumberOff := 8760;
  41.    fIconNumberOn := 22610;
  42.    END;
  43.  
  44.    kMonitorChoice:
  45.    BEGIN
  46.    fIconNumberOn := 26174;
  47.    fIconNumberOff := 7753;
  48.    END;
  49.  
  50.    kAlarmsChoice:
  51.    BEGIN
  52.    fIconNumberOn := 27821;
  53.    fIconNumberOff := 782;
  54.    END;
  55.  
  56.    kGraphChoice:
  57.    BEGIN
  58.    fIconNumberOn := 17957;
  59.    END;
  60.  
  61.    kFindChoice:
  62.    BEGIN
  63.    fIconNumberOn := 20407;
  64.    END;
  65.  
  66.    kInterGraphChoice:
  67.    BEGIN
  68.    fIconNumberOn := 26067;
  69.    END;
  70.  
  71.    kEditChoice:
  72.    BEGIN
  73.    fIconNumberOn := 26290;
  74.    END;
  75.  
  76.    kAddChoice:
  77.    BEGIN
  78.    fIconNumberOn := 25693;
  79.    END;
  80.  
  81.    kCommentChoice:
  82.    BEGIN
  83.    fIconNumberOn := 30572;
  84.    END;
  85.    END; { Case fDefChoice }
  86.  
  87.    fName := aName;
  88.    fTickerDoc := itsDoc;
  89.  
  90. END;
  91.  
  92. The error I got was as follows:
  93.  
  94.         "Code being parsed was:
  95.  
  96.         ckerDoc := itsDoc;
  97.  
  98.         END;"
  99.  
  100. Can anyone help???
  101.  
  102. Dan Cooley
  103. Strategic Planning Systems
  104.  
  105.  
  106.  
  107.